home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ANIVGA.ZIP / EXAMPLE7.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-08-17  |  3.0 KB  |  105 lines
  1. PROGRAM Example7;
  2.  
  3. {Demonstrates the use of a loadable palettes: the program will load a _very_}
  4. {strange palette (randomly generated...)}
  5.  
  6. USES ANIVGA,CRT;
  7. CONST SpriteName='flower.COD';
  8.       PalName='random.PAL';
  9.       Flower=10;
  10.       FlowerShadow=11;
  11.       brightness:BYTE=80;
  12.  
  13. VAR ch:Char;
  14.     i,j:Integer;
  15.     temp:WORD;
  16.     p1:POINTER;
  17.     oldPal:Palette;
  18.  
  19.  
  20. BEGIN
  21.  
  22.  IF (loadSprite(SpriteName,Flower)=0) OR     {load sprite 2x for different}
  23.     (loadSprite(SpriteName,FlowerShadow)=0)  {display modes!}
  24.   THEN BEGIN
  25.         WRITELN('Couldn''t access file '+SpriteName+' : '+GetErrorMessage);
  26.         halt(1)
  27.        END;
  28.  
  29.  SetModeByte(FlowerShadow,Display_SHADOWEXACT); {set mode of shadow sprite}
  30.  SetShadowTab(brightness);
  31.  
  32.  ch:=#0;
  33.  
  34.  InitGraph;
  35.  if loadpalette(PalName,0,actualColors)=0
  36.   then BEGIN
  37.         closeroutines;
  38.         WRITELN('Couldn''t access file '+PalName+' : '+GetErrorMessage);
  39.         halt
  40.        END
  41.   ELSE SetPalette(actualColors,TRUE);
  42.  
  43.  {just to show how to change a color:}
  44.  GetPalette(oldPal);      {read palette,   }
  45.  oldpal[15].red:=0;       {change color(s),}
  46.  oldpal[15].green:=63;
  47.  oldpal[15].blue:=0;
  48.  SetPalette(oldPal,TRUE); {show it!}
  49.  
  50.  FOR i:=15 TO 78 DO
  51.   BEGIN {draw some colors on the screen}
  52.    Color:=i;
  53.    FOR j:=(i-15)*5 TO (i-15)*5+4 DO BackgroundLine(j,0,j,YMAX)
  54.   END;
  55.  
  56.  BackgroundLine(0,0,XMAX,YMAX);
  57.  
  58.  SpriteN[0]:=Flower; SpriteX[0]:=100; SpriteY[0]:=100;
  59.  {Use same flower for shadow zone:}
  60.  SpriteN[1]:=FlowerShadow;
  61.  SpriteX[1]:=SpriteX[0]+2; SpriteY[1]:=SpriteY[0]+2;
  62.  
  63.  Animate; REPEAT
  64.   if keypressed
  65.    THEN BEGIN
  66.          while keypressed do ch:=upcase(readkey);
  67.          case ch of
  68.           'C':BEGIN
  69.                p1:=GetImage(0,0,50,30,1-PAGE);
  70.                PutImage(-10,-5,p1,BACKGNDPAGE);
  71.                PutImage(-11,60,p1,BACKGNDPAGE);
  72.                PutImage(-12,110,p1,BACKGNDPAGE);
  73.                PutImage(-13,180,p1,BACKGNDPAGE);
  74.                FreeImageMem(p1);
  75.               END;
  76.           'P':FOR i:=1 TO 1000 DO
  77.                BackgroundPutPixel(Random(XMAX+1),Random(YMAX+1),Random(256));
  78.           'I':BEGIN dec(SpriteY[0]); dec(SpriteY[1]) END;
  79.           'J':BEGIN dec(SpriteX[0]); dec(SpriteX[1]) END;
  80.           'K':BEGIN inc(SpriteX[0]); inc(SpriteX[1]) END;
  81.           'M':BEGIN inc(SpriteY[0]); inc(SpriteY[1]) END;
  82.           '+':IF brightness<100
  83.                THEN BEGIN
  84.                      inc(brightness); SetShadowTab(brightness)
  85.                     END
  86.                ELSE BEGIN
  87.                      sound(500); delay(100); nosound
  88.                     END;
  89.           '-':IF brightness>0
  90.                THEN BEGIN
  91.                      dec(brightness); SetShadowTab(brightness)
  92.                     END
  93.                ELSE BEGIN
  94.                      sound(500); delay(100); nosound
  95.                     END;
  96.          end;
  97.          if pos(ch,'PCIJKM+-')>0 THEN Animate;
  98.         END;
  99.  
  100.  UNTIL (ch='Q') OR (ch=#27);
  101.  
  102.  CloseRoutines;
  103.  
  104. END.
  105.